(eval-when-compile
(require 'dired)
+ (require 'dired-aux)
(require 'cl))
(unless (assoc 'vc-parent-buffer minor-mode-alist)
(defun vc-generic-status-printer (fileentry)
(let* ((file (vc-dir-fileinfo->name fileentry))
(backend (vc-responsible-backend file)))
- (vc-call-backend backend 'status-printer file)))
+ (vc-call-backend backend 'status-printer fileentry)))
(defun vc-generic-state (file)
(let ((backend (vc-responsible-backend file)))